Release procedure

  DECLARATION:  Release(var P : Pointer);

      PURPOSE:  Returns the heap to a given state

         UNIT:  System

      REMARKS:  P may be a pointer variable of any pointer type that has
                been previously assigned by a call to the Mark procedure.
                Release disposes all of the dynamic variables that were
                allocated by New or GetMem since P was assigned by Mark.